home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1996 #6 / Amiga Plus CD - 1996 - No. 06.iso / pd / daten / abook / arexx / showextradata.abx < prev   
Text File  |  1995-09-13  |  2KB  |  99 lines
  1. /*
  2. **  $VER: showExtraData.abx 01.50 (13.09.95) © Aris Basic 1995
  3. **
  4. **
  5. **  PROGRAMNAME:
  6. **      showExtraData.abx
  7. **
  8. **  FUNCTION:
  9. **      Show Extra Datas Specifed in Comment
  10. **
  11. **      This Macro Needs Some Sort of Viewer for Text,Guide,Picture,Sound and Player
  12. **      for MOD Files like are MultiView (© Commodore Amiga Inc.)
  13. **      and DeliTracker2 (© Delirium Softdesign)
  14. **
  15. **  $HISTORY:
  16. **
  17. **   14.02.95 : 01.00 : initial release
  18. **   13.09.95 : 01.50 : addapted to ABook 01.00
  19. **
  20. */
  21.  
  22. CALL main()
  23.  
  24. /*
  25. ** Funktion Play MOD For DeliTracker2
  26. */
  27. PROCEDURE play :
  28. PARSE ARG filename
  29. IF ~Show('P','DELITRACKER') THEN DO
  30.                                  'REQUESTRESPONSE PROMPT="Kann DeliTracker nicht finden" TITLE="FEHLER" BUTTON="_OK"'
  31.                                  EXIT 10
  32. END
  33. oldadres=ADDRESS()
  34. ADDRESS 'DELITRACKER'
  35. 'PLAYMOD 'filename
  36. ADDRESS VALUE oldadres
  37. RETURN 0
  38. /*
  39. */
  40.  
  41. main:
  42.  
  43. /*
  44. ** Commands for Viewing
  45. */
  46. textshow='RUN >NIL: MultiView '
  47. picshow='RUN >NIL: MultiView '
  48. guideshow='RUN >NIL: Multiview '
  49. /*
  50. */
  51.  
  52. OPTIONS RESULTS
  53. IF ~Show('P','ADDRESS_BOOK.1') THEN DO
  54.     Say "Address Book ist nicht gestartet!"
  55.                                     
  56. END
  57. ADDRESS 'ADDRESS_BOOK.1'
  58. 'LOCKGUI'
  59. 'FIRST SELECTED'
  60. lock=RESULT
  61. ret=RC
  62. 'UNLOCKGUI'
  63. IF ret=5 THEN DO
  64.              IF ~Show('P','ABOOK_SERVER') THEN DO
  65.                                                'REQUESTRESPONSE PROMPT="Kein Eintrag selektiert!" TITLE="FEHLER" BUTTON="_OK"'
  66.                                                EXIT 10
  67.              END
  68.              CALL server()
  69. END
  70. main2:
  71. 'LOCK 'lock
  72. 'QUERY STEM='DATA.
  73. koment=DATA.USER
  74. platz=POS(';@',koment)
  75. IF platz=0 THEN DO
  76.                 'REQUESTRESPONSE PROMPT="Keine externen Daten im Eintrag!" TITLE="FEHLER" BUTTON="_OK"'
  77.                 EXIT 10
  78. END
  79. cmd=SUBSTR(koment,platz+2)
  80. ccmd=WORD(cmd,1)
  81. data=WORD(cmd,2)
  82. SELECT
  83.       WHEN ccmd='PICTURE' THEN ADDRESS COMMAND picshow||data
  84.       WHEN ccmd='TEXT' THEN ADDRESS COMMAND textshow||data
  85.       WHEN ccmd='GUIDE' THEN ADDRESS COMMAND guideshow||data
  86.       WHEN ccmd='MOD' THEN play(data)
  87. END
  88.  
  89. ende:
  90. 'UNLOCK 'lock
  91. exit 0
  92. server:
  93. ADDRESS 'ABOOK_SERVER'
  94. 'SELECT STEM='VAR.
  95. lock=VAR.1
  96. IF lock="VAR.1" THEN Call ende()
  97. CALL main2()                                          
  98.  
  99.